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CONTROL DATA CYBER 70, 6000 SERIES, 

7600 COBOL 


The COBOL language is designed to simplify the programming of busi¬ 
ness data processing operations; it produces easily modifiable source 
programs that result in shorter program development time and low 
program conversion costs. COBOL source and object programs run un¬ 
der the control of the SCOPE operating system. 

This version of COBOL is designed fortheCONTROL DATA®CYBER70, 
6000 Series and 7600 computers. It is upwards compatible with the 
COBOL developed by the American National Standards Institute (ANSI). 
This version provides many features in addition to all ANSI features. 

ANSI formats are printed in black. 

Extensions to ANSI are printed in color: 

blue All CDC extensions 

green CDC 6000 Series and CDC CYBER 70/Models 72, 73, 74 

red CDC 7600 and^CDC CYBER 70/Model 76 


Special Features: 

Mass storage input and output including indexed sequential and direct 
access file processing. 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and SET 
statements 

Report Writer produces printed reports automatically, or user may pro¬ 
duce report page with LINAGE clause and WRITE statement 

Full arithmetic facility including: 

18-digit operands 

DIVIDE with REMAINDER 

COMPUTE with exponentiation 

CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

Inter-program communication with separately compiled COBOL pro¬ 
grams as well as with FORTRAN or COMPASS programs 

Access to COBOL source library 

Memory dumps with restart at specified checkpoints 

Remote interactive capability for remote terminal input/output 
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PROGRAM EFFICIENCY HINTS 

To reduce keypunching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 

Eliminate unnecessary paragraph names. 

Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as subscripts. 

Use COMPUTATIONAL-1 items as arithmetic variables. 

Restrict arithmetic items to 9 digits or less. 

Use SYNCHRONIZED RIGHT clause for data frequently refer¬ 
enced. 

Use SAME RECORD AREA to save moves; SAME AREA to save 
space. 
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COBOL NOTATION 


[ ] Enclosed elements are optional. 

| | Only one element must be selected. 

. . . Repeat preceding bracketed material as needed. 

{ } ... Entire phrase may be repeated. 

COBOL words have preassigned meanings and appear in capitals. 
COBOL words not underlined may be omitted. 

Terms in small letters are words supplied by the programmer. 
Punctuation and special characters are required where shown. 


Word 

Identifier 

Literal 


Statement 

Sentence 

Paragraph 


Paragraph 

Name 


Section 


Section 

Name 


Entry 


COBOL LANGUAGE ELEMENTS 

Sequence of up to 30 alphanumeric characters including 
embedded hyphens 

Word that may be qualified or subscripted 

String of characters whose value is exactly represented 
by the characters; numeric literal may be 0-9, +, and 
decimal point; non-numeric literal must be enclosed in 
quotes, may be any alphanumeric character except quotes 

Procedure Division verb with associated options 

One or more statements terminated by period 

Procedure Division sentences. Identification and Environ¬ 
ment Division entries introduced by paragraph name, 
terminated by period. 

Word terminated by period used to introduce paragraph; 
user defined in Procedure Division, pre-defined in Identi¬ 
fication and Environment Divisions 

Paragraphs may be included in sections introduced by 
section name 

Word followed by SECTION and terminated by period; 
user defined in Procedure Division, pre-defined in Identi¬ 
fication, Environment, and Data Divisions 

Unit of description in Data Division, must be terminated 
by period 
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IDENTIFICATION DIVISION 

(ID ) 

< > DIVISION 

l IDENTIFICATION j - 

PROGRAM-ID, program-name. 

[ AUTHOR, [comment-entry.] ] 

[ INSTALLATION, [comment-entry.]] 

[ DATE-WRITTEN, [comment-entry.] ] 

[ DATE-COMPI LED, [current-date supplied by compiler.] ] 

[ SECURITY, [comment-entry.] ] 

[ REMARKS, [comment-entry.] ] 

ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 


format 1: 


SOURCE-COMPUTER. COPY library-name 


( literal-1 j 

f literal-2 ) 

REPLACING < word-1 

BY < word-2 > 

( identifier-1 ) 

[ identifier-2 j 


" ( literal-3 ) 

( literal-4 


\ word-3 / 

BY < word-4 ? 


_ ( identifier-3 ) 

1 identifier-4 )_ 



format 2: 

SOURCE-COMPUTER, computer-name. 


format 1: 

OBJECT-COMPUTER. COPY library-name 



| literal-1 

) ( literal-2 1 

REPLACING 

\ word-1 

> BY < word-2 > 


v identifier-1 

) ( identifier-2; 


_ ( literal-3 i 

( literal-4 )' 


word-3 , 

BY < word-4 


_ ( identifier-3 j 

( identifier-4;J 

_ 
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format 2: 


OBJECT-COMPUTER, computer-name 

[ SEGMENT-LIMIT IS priority-number] 


- 

( WORDS ) 1 

MEMORY SIZE inteqer 

l CHARACTERS > 


l MODULES ) _ 


format 1: 

SPECIAL-NAMES. COPY library-name 


REPLACING 


(' literal-1 j 
\ word-1 , 
( identifier-1 > 

literal-3 | 
word-3 / 
identifier-3 .) 


literal-2 
BY { word-2 
. identifier-2 

' literal-4 
BY { word-4 

identifier-4 


format 2: 

SPECIAL-NAMES 

SWITCH integer-1 

IS mnemonic-name-1 

[ON STATUS IS. condition-name-1 
[ OFF STATUS [S condition-name-2] ] 
IS mnemonic-name-2 

[ OFF STATUS IS condition-name-3 
[ QN STATUS [S condition-name-4] ] 
ON STATUS JS. condition-name-5 
[ OFF STATUS IS condition-name-6] 
OFF STATUS [S condition-name-7 
[ ON STATUS ]S. condition-name-8] 

[non-numeric-literal IS mnemonic-name-1 ] ... 

[implementor-name |S mnemonic-name-1 ] ... 
[ CURRENCY SIGN ]S literal] 
r DECIMAL-POINT IS COMMA] 

[ CONSOLE IS mnemonic-name] 

[ TERMINAL IS mnemonic-name]. 
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IMPHT-DUTPUT SECTION. 


format 1: 

FILE-CONTROL. COPY library-name 


~ 

f literal-1 “j 

( literal-2 'j 


REPLACING 

< word-1 

BY < word-2 > 



V identifier-1 J 

l identifier-2 ) 



( literal-3 1 

( literal-4 ) 1 



< word-3 > 

BY < word-4 > 



_ ( identifier-3 ) 

v identifier-4 ' - 

_ 


format 2: 

FILE-CONTROL. 

{ SELECT [ OPTIONAL ! file-name-1 [RENAMING file-name-2] 
ASSIGN TO [integer] implementor-name-1 [implementor-name-2] 


... [OR implementor-name-3 [implementor-name-4] ...] 

[ E2BMULI1PLE {{jgy} ] 


[ ERROR FILE IS file-name] 

[reserve {^f eger } ALTERNATE 

( FILE-LIMIT [S ) f data-name-1 
1 FILE-LIMITS ARE j \ literal-1 


f AREA \1 
. I AREASj 


/ THRU ) / data-name-2 

\ THROUGH j \ literal-2 


L[{ 


data-name-3 

literal-3 


THRU 

THROUGH 


( data-name-4 \ 1 
l literal-4 j J 


SEQUENTIAL \ 

\ STANDARD f 

ORGANIZATION IS - DIRECT / 

j INDEXED SEQUENTIAL \ 
' RELATIVE 


ACCESS MODE ]S 


f SEQUENTIAL )1 
l RANDOM j J 


[ PROCESSING MODE IS SEQUENTIAL ! 
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'( ACTUAL | 
i SYMBOLIC f 


KEY IS data-name 


NUMBER OF BLOCKS !S ■{ data name \ 

_- - I integer ) _ 


" j INDEX-LEVEL IS 


integer 


Ll INDEX-LEVELS ARE J 

f INDEX-BLOCK CONTAINS integer RECORDS] 

t l RFCOR DS 1 "] 

RECORD-BLOCK CONTAINS integer ’ CHARACT ERS j j 

f INDEX-PADDING IS integer PERCENT] 
f DATA-PADDING IS integer PERCENT] . } ... 

format 1: 


l-Q-CQNTROL. COPY library-name 


( literal-1 

REPLACING < word-1 

( identifier-1 


( literal-2 
BY < word-2 
{ identifier-2 


~ { literal-3 } 

( literal-4 


< word-3 > 

BY < word-4 > 


_ l identifier-3 ) 

( identifier—4 )_ 



format 2: 


1-0 CONTROL. 

RERUN [oN { ? lle " name “ 1 }1 

- I — { implementor-name ; J 


({ [EMB0F1 lir} 

EVERY < \ integer-1 RECORDS 
j integer-2 CLOCK-UNITS 
V condition-name 


OF file-name-2 


[^Mi[ SR D }l AREAF0Rflle -name-1 {file-name-2} . 

[MULTIPLE FILE TAPE CONTAINS file-name-1 
[PQS1XLQN integer-1] [file-name-2 
[ POSITION integer-2] ] ... 1 . 
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PICTURE DESCRIPTION CODES 


Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 

P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 
* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

, Comma 

/ Slash (instead of comma) 

Actual decimal point 
B Blank 
0 Zero 

Minus sign when item is negative, blank when positive; floating 
when more than one 

+ Plus sign when item is positive, minus when negative; floating 
when more th§n one 

CR Credit symbol when item is negative, blank when positive 
DB Debit symbol when item is negative, blank when positive 
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DATA SPECIFICATIONS 



File 

Section 

Common and 
Working 
Storage Sections 

Constant 

Section 

01 

g 

r 

o 

u 

P 

e 

1 

e 

m 

77 

01 

g 

r 

0 

u 

P 

e 

1 

e 

m 

77 

01 

g 

r 

o 

u 

P 

e 

1 

e 

m 

REDEFINES 

1 











SIZE 



R 

R 



R 

R 



R 

USAGE 












CLASS 




R 




R 




OCCURS 

1 



1 

i 



1 

1 



POINT LOCATION 

J 

1 



j 

1 



J 

1 


SIGNED 

J 

1 



j 

1 



J 

1 


JUSTIFIED 

J 

1 



j 

1 



J 

1 


SYNCHRONIZED 

J 




j 

1 



J 

1 


PICTURE 

J 

T~ 



j 

1 



J 

1 


Editing Clauses 

~~T 

T" 



j 

T"~ 


~T~ 

J 

T~ 

1 

COPY 












VALUE 

~~K 

~K~ 

~C~ 





~V~ 



V 

FILLER 

1 



T~ 

~r 



1 

1 




C Legal only in defining values for condition names 

I Illegal 

R Required if PICTURE is not used 

blank Optional 

V Required 

J Legal only on elementary 01 items 

K Documentary only 
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DATA DIVISION 

DATA DIVISION. 


[FILE SECTION..] 
[ COMMON-STORAGE SECTION. ] 
[ WORKING-STORAGE SECTION. ] 
[ SECONDARY-STORAGE SECTION. ] 
[ CONSTANT SECTION. ] 

[ LINKAGE SECTION. ] 

[ REPORT SECTION. ] 


File Description Entry (File Section Only) 

A Sort File Description (SD) entry may contain only DATA RECORD, 
RECORD CONTAINS,and FILE CONTAINS clauses; any or all may be 
omitted from an SD entry. 


format 1: 


SD 

FD 


| file-name COPY library-name 


REPLACING 


( literal-1 


' literal-2 \ 

< word-1 

BY 

word-2 > 

l identifier-1 . 


. identifier-2 ) 

" I literal-3 ^ 

1 I 

' literal-4 Y 


< word-3 , 

> BY < 

word-4 > 


_ ( identifier-3 J 

1 1 

. identifier-4 )_ 



format 2: 

| ” | file-name 

[ BLOCK CONTAINS [integer-1 TO] integer-2 {S^ £RS }] 

( [ { RECORDS ARE } data-name-1 [data-name-2] ...] ) 

( t UpORTSARE f report - name - 1 [report-name-2] ... ) 

[ FILE CONTAINS ABOUT integer RECORDS ! 
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(STANDARD ) 

( RECORDS ARE ) 

< OMITTED > 

1 RECORD IS ) 

( data-name-1 [data-name-2] ... ) 


If label records are STANDARD: 

[ VALUE OF [ { ^ FNT , F|CAT|nN } IS { “me-1 }] 

TDATE-WRITTEN IS -f llteral " 2 
L data-name-2 j J 

I" EDITION-NUMBER IS <f ' lteral “ 3 l] 

L { data-name-3 j J 

I" REEL-NUMBER IS <f ’ 1 lteral " 4 l] 

L ( data-name-4 j J 

l~ RETENTION-CYCLE IS / llteral ~ 5 l] 

L l data-name-5 j J J 


If label records are a data-name: 


VALUE OF data-name-3 IS <f l ' teral 1 , \ 

(_ ( data-name-4 ) 

f" data-name-5 IS i lj teral_ 2 11 1 

L ( data-name-6 j J J 

[ VALUE OF ENDING-TAPE-LABEL-1DENTIFIER 

Ig ( literal-3 \ 1 
\ data-name-7 / J 


I" LINAGE IS -{ !l tege r r } LINES 1 
L (. identifier j J 

f RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


DEPENDING ON ■{ BJCORD MARK \ ~l 
_ ( data-name-1 j J 


RECORDING MODE IS [ 

' ( BINARY 1 1 

7 HIGH ) 1 

< LOW > DENSITY 

L 

1 DECIMAL 1 1 

( HYPER) J 


[ SEQUENCED ON data-name-1 [data-name-2] ... ] . 
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Record Description Entry (File, Common-Storage, Working-Storage, 
Secondary-Storage, Constant and Linkage Sections) 


format 1: 

101 ) 

1 02-49 J data-name COPY library-name [FROM LIBRARY ! 


/ word-1 i 

r word-2 \ 

REPLACING < identifier-1 ; 

BY< identifier-2 > 

(literal-1 ) 

[ literal-2 ) 


" ( word-3 \ 

r word-4 \ ~ 

- 

< identifier-3 > 

BY< identifier-4 > 


_ ( literal-3 j 

(literal-4 ) _ 



format 2: 

level-numBer data-name-1 [ REDEFINES identifier! 
COPY data-name-2 FROM SOURCE. 


format 3: 


level-number / data - name 1 REDEFINES identifier] 
I FILLER 


f f BWZ ) 1 

L \ BLANK WHEN ZERO J J ' 


~ f CHECK PROTECT 
) FLOAT DOLLAR SIGN 
j FLOAT CURRENCY SIGN 
- '■ ZERO SUPPRESS 


[ LEAVING integer PLACES] 


[ CLASS IS] 


ALPHABETIC 

NUMERIC 

ALPHANUMERIC 

AN 


r / just 

L 1 JUSTIFIED 


RIGHT j 
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OCCURS integer-1 [TO integer-2] TIMES 
[ DEPENDING ON data-name-1] 

r ( ASCENDING ) . _ r . ^ 1 

L { DESCENDING / KEY IS data-name-2 [data-name-3] ...J 

[ INDEXED BY index-name-1 [index-name-2] ...] 

[ { picTURE }'S character-string ] 

POINT LOCATION IS j } integer PLACES J 

[ RANGE IS Hteral-1 { ™ gh } literal-2 ] 

I" ( SIGNED ] ] 

L l SIGN IS data-name j J 

T r / CHARACTERS \ 1 ] 

L ^ ' S mteger L { DIGITS / J J 

r ( SYNC l / LEFT \ 1 

L l SYNCHRONIZED / l RIGHT / J 

COMP 

COMPUTATIONAL 
COMP-1 

COMPUTATIONAL-1 
COMP-2 

COMPUTATIONAL-2 
DISPLAY 
INDEX 


[ VALUE IS literal], 
format 4: 

66 data-name RENAMES identifier-1 [ j jhrq UGH } identifier - 2 


[ USAGE IS] 



format 5: 


88 condition-name j } "W*'-' 

[ { is, } “] [-«[{Sm 1 “*] ■■■] ■ 
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Report Description Entry (Report Section Only) 


format 1: 


RD report-name [WITH CODE mnemonic-name] 


COPY library-name 

REPLACING | 

literal-1 j 

word-1 > BY 

identifier-1 / 


( literal-2 \ 

< word-2 > 

1 identifier-2 ) 

~( literal-3 

\ word-3 
_v identifier-3 

l by! 

literal-4 f " 

word-4 > 

identifier-4 ) - 



« 


format 2: 


RD report-name [WITH CODE mnemonic-name] 


CONTROL IS ) 
CONTROLS ARE / 


( identifier-1 [identifier-2] ... 

< FINAL 

l FINAL identifier-1 [identifier-21 


r PAGE 


LIMIT IS ) 
LIMITS ARE / 


integer-1 


LINE ) 
LINES j 


[ HEADING integer-2] [ FIRST DETAIL integer-3] 
[ LAST DETAIL integer-4 [ FOOTING integer-5] 


Report Group Description Entry (Report Section Only) 


« 


format 1: 

01 [data-name] COPY library-name [FROM LIBRARY ] 

( literal-1 t f literal-2 'j 

REPLACING < word-1 > BY < word-2 > 

v identifier-1 ) \ identifier-2 ) 


~ ( literal-3 "j 

( literal-4 \ 


< word-3 , 

BY < word-4 > 


_ v identifier-3 ) 

V identifier-4 J - 

_ 


i 
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format 2: 


01 data-name-1 [ REDEFINES identifier] 
COPY data-name-2 FROM SOURCE. 

format 3: 

01 [data-name] 


[ CLASS IS] 


ALPHABETIC 

NUMERIC 

ALPHANUMERIC 

AN 


integer-1 

LINE NUMBER IS < PLUS integer-2 
.NEXT PAGE 


' integer-1 

NEXT GROUP IS { PLUS integer-2 
NEXT PAGE 


T ,c ■ + f CHARACTERS \ 

L ^ ISmteger {digits I 


TYPE IS 


REPORT HEADING 
RH 

PAGE HEADING 
PH 

OVERFLOW HEADING 
OH 

( CONTROL HEADING 
l CH 
DETAIL 
DE 

( CONTROL FOOTING 
t CF 

OVERFLOW FOOTING 
OV 

PAGE FOOTING 
PF. 

REPORT FOOTING 
RF 


[ USAGE IS] DISPLAY 


identifier-1 

FINAL 


identifier-2 

FINAL 
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Report Element Description (Report Section Only) 


level-number [data-name] 


r ( BLANK WHEN ZERO | 1 

L \ BWZ j J 


CHECK PROTECT j 

FLOAT DOLLAR SIGN f 

FLOAT CURRENCY SIGN ( [ LEAVING integer PLACES] 
ZERO SUPPRESS > 


[CLASS IS] 


ALPHABETIC 

NUMERIC 

ALPHANUMERIC 

AN 


1 

\ 


[ COLUMN NUMBER IS integer] 
[ GROUP INDICATE] 


f (JUSTIFIED) 1 

L I R,GHT J 


( integer-1 

LINE NUMBER IS PLUS integer-2 
( NEXT PAGE 


r f pic ) i 

L I PICTURE f 'S character-string J 

r POINT LOCATION IS { ! inteqer PLACES I 

L - \ RIGHT ) J 

t ( identifier ) 1 

“ Irnal }J 

1" ( SIGNED \ I 

L i. SIGN IS data-name / J 

T ei7 C ,c ■ «. f CHARACTERS ) 1 

L l DIGITS ) J 
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[SELECTED ] identifier 
LINE-COUNTER 
PAGE-COUNTER 
TODAYS-DATE 

I SUM identifier-1 [identifier-2] . . . [ UPON data-name] 
I VALUE IS literal 

[ [ USAGE IS] DISPLAY ]. 

TYPE clause allowed if level 01 
NEXT GROUP clause allowed if level 01 


SOURCE IS 
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USAGE SPECIFICATIONS 


Element 

Upper Limit 

data-name 

30 characters, 

5 levels of qualifications 

elementary item/literal 

255 characters/digits 

PERFORM nesting 

15 levels in separate overlays, 
no limit in main overlay 

level numbers 

01-49, 66, 77,88, FD, RD, SD 

OCCURS...DEPENDING ON 

1 per record description 

library copies 

5 levels of nesting 

ACCEPT items 

80 characters; 

40 characters from console 

PICTURE clause 

30 symbols 

arithmetic operand 

18 digits 

GO TO statement 

100 procedure names 

ALTER statement 

100 procedure names 

DISPLAY items 

no limit 

ENTER parameters 

no limit 

Total files, I/O devices, 
and reports 

53 

Total procedure names 

depends on field length 

Total external references 

depends on field length 
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VALID MOVE OPERATIONS 


'N. Rec. 

\Field 
SourceV 
Field \ 

Elem. 

Binary 

Elem. 

Alpha 

Elem. 

BCD 

Num. 

Elem. 

AN 

Elem. 

Edit 

Num. 

Elem. 

Edit 

AN 

Group 

AN 

Elem. 

Binary 

Num. 

Bin. 

X 

Conv. 

Num. 

Conv.t 

AN 

Conv. 

Edit 

Conv.t 

AN- 

Edit 

TD 

AN 

Elem. 

Alpha 

X 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Elem. 

BCD Num. 

Conv. 

Bin. 

TD 

AN 

Num. 

ANt 

Edit 

AN- 

Edit 

ANt 

Elem. 

AN 

X 

TD 

AN 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Elem. 

Edit Num. 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Elem. 

Edit AN 

X 

75 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Group AN 

TD 

AN 

TD 

AN 

TD 

AN 

AN 

X 

AN- 

Edit 

AN 

Group 
Binary & 
Mixed 

TD 

AN 

TD 

AN 

TD 

AN 

TD 

AN 

X 

TD 

AN- 

Edit 

TD 

AN 

Zero 

Num. 

Bin. 

X 

Num. 

AN 

Edit 

AN- 

Edit 

AN 

Literal & 
Fig. Cons. 
AN 

X 

TD 

AN 

X 

AN 

X 

AN- 

Edit 

AN 

Literal 

Num. 

Conv. 

Bin. 

X 

Num. 

ANt 

Edit 

AN- 

Edit 

AN 


t Valid only whemsource is integer; others TD. 


Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 


X 

Illegal 

AN 

Alphanumeric 

AN-Edit 

Alphanumeric edited 

Conv. 

Conversion prior to move 

Edit 

Numeric edited 

Num. 

Numeric 

Num. Bin. 

Numeric binary 

TD 

Trivial diagnostic issued 
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PROCEDURE DIVISION 

PROCEDURE DIVISION. [ USING para meter-11st] . 


DECLARATIVES. 

{ section-name SECTION, declarative-sentence. 
{ paragraph name. { sentence.} ...} ...} ... 
END DECLARATIVES. 


{ section-name SECTION [priority-number] . 

{ paragraph-name. { sentence. } ... } ...} ... 


ACCEPT identifier 


r 

TIME 

”1 

FROM 

j 

DATE ( 


| DAY i 


( 

v mnemonic-name 

1 _ 


nn / identifier-1 ) [~ / identifier-2 ) 1 

- I literal-1 / Li literal-2 / J 

identifier-3 [ ROUNDED! 

[ON SIZE ERROR imperative-statement] 


| identifier-1 1 

( identifier-2 

1 literal-1 / 

Ll literal-2 j J 


identifier-3 [ ROUNDED! [identifier-4 [ROUNDED]] ... 
[ON SIZE ERROR imperative-statement] 


( identifier-1 ) 

f identifier-2 \ 

T ( identifier-3 ) 1 

\ literal-1 j 

1 literal-2 j 

L\ literal-3 j J 


GIVING identifier-4 [ ROUNDED ] [identifier-5 [ ROUNDED ] 
[ON SIZE ERROR imperative-statement] 

{ CORRESPONDING } ,dentlfier_1 
10 identifier-2 [ ROUNDED ! [identifier-3 [ ROUNDED ] ] ... 
[ON SIZE ERROR imperative-statement] 
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ALTER procedure-name-1 TO [PROCEED TO I procedure-name-2 


[procedure-name-3 TO [PROCEED TO ] procedure-name-4] ... 
CALL {routine-name} [ USING identifier-1 [identifier-2] ...] . 

[{EH 

['«•—’[{EH [w,t»{£—}]].. 

COMPUTE identifier-1 [ ROUNDED] [identifier-2 [ ROUNDED] ] ... 

( FROM f ( literal \ 

< = > < arithmetic-expression > 

l EQUALS ) ( identifier-3 ) 

[ON SIZE ERROR imperative-statement] 


{ include } I'brarv-name [FROM LIBRARY ] 



( literal-1 f 

REPLACING 

< word-1 > 


( identifier-1 ) 


BY 


literal-2 
word-2 
identifier-2 


" ( literal-3 ) 

( literal-4 } ~ 


< word-3 > 

BY < word-4 > 


_ l identifier-3 ' 

( identifier-4 ) _ 



DELETE RECORD FROM file-name 

[ INVALID KEY imperative-statement] 


DISPLAY 


f identifier—1 \ 

1” ( identifier-2 ) 1 

\ literal—1 / 

L l literal-2 f J 


[ UPON mnemonic-name] 

DIVIDE / identifier- 1 1 ||\|TO identifier-2 [ROUNDEDl 
(. literal ) 

[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 
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DIVIDE 


identifier-1 

literal-1 


identifier-2 

literal-2 


f BY 1 

\ into ; 


GIVING identifier-3 [ROUNDED] [identifier-4 [ ROUNDED ]]... 
[ON SIZE ERROR imperative-statement] 


DIVIDE 


identifier-1 

literal-1 


BY ) / identifier-2 ) 
INTO j \ literal-2 j 


GIVING identifier-3 [ ROUNDED ] 


REMAINDER identifier-4 


[ON SIZE ERROR imperative-statement] 


ENTER [language-name] routine-name [USING parameter-list]. 


ENTER COBOL. 


ENTER LINKAGE. 

(ENTER ) , 

[CALL J LIcjnguage-name] routine-name [ USING parameter-list] . 
ENTRY routine-name [ USING parameter-list]. 

EXAMINE identifier 


(ALL 

TALLYING < LEADING 

( UNTIL FIRST 


literal-1 

[ REPLACING BY literal-2] 


REPLACING 


( ALL 
LEADING 
( [UNTIL ] FIRST 


literal-3 BY literal-4 


EXIT. 

) EXIT PROGRAM. I 

! RETURN. j' 

GENERATE identifier 
GO TO [procedure-name] 


GO TO procedure-name-1 [procedure-name-2 ...] 
DEPENDING ON identifier 
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j_F conditional-expression [ THEN ! 


statement-1 
NEXT SENTENCE 


rTHPM1 ( OTHERWISE ) / statement-2 

J ) ELSE f 1 NEXT SENTE 


Conditional expressions include: 


(identifier-1 
< literal-1 
(formula-1 


i GREATER THAN 
GR 

> 

LESS THAN 

]<“ 

IS [NOT] < GREATER-EQUAL TO 
)GQ 

f LESS-EQUAL TO 
LQ 

EQUAL [TO] 
i EQ 


IS UNEQUAL TO 
EQUALS 


EXCEEDS 


IS NQ 
IS NGR 
IS NLS 


iidentifier-2 
< literal-2 
(formula-2 


.. ... ( POSITIVE ) 

(identifier) !S [NOJ] < NEGATIVE > 
Iformuia j (.ZERO j 


identifier IS [NOJ] 


( NUMERIC ) 

( ALPHABETIC / 


[NOT] | condition-name ) 

( switch-status-name j 

/ report-name-1 [report-name-2]... ] 


MOVE 


" l ALL 

f CORR \ 

1 CORRESPONDING J 
literal-1 
identifier-1 


identifier-1 


TO 


identifier-2 [identifier-3] ... 
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MULTIPLY i ldent ! fier 1 \ BY identifier-2 [ROUNDED] 
- {literal ) ~~ 

[identifier-3 [ROUNDED]] ... 

[ON SIZE ERROR imperative-statement] 

MULTIPLY 1 identifier- 1 1 By f identifier-2 ) 
- I literal-1 j l literal-2 j 

GIVING identifier-3 [ ROUNDED ] 

[identifier-4 [ ROUNDED ] 1 ... 

[ON SIZE ERROR imperative-statement] 


NOTE character-string. 



/ EXTEND file-name-1 

[file-name-2] ... 


1 INPUT file-name-1 

[■ ( REVERSED 

1 ( WITH NO REWIND 

}] 

1 file-name-2 1 

I" ( REVERSED 

)]] 

OPEN / L 1 

l\ WITH NO REWIND 


OUTPUT file-name-1 [WITH NO REWIND 

[file-name-2 [WITH NO REWIND ] 1 ... 


/ INPUT-OUTPUT I 

11=0 j 


file-name-1 [file-name-2] 


(THRU I 

PERFORM procedure-name-1 [ < > procedure-name-2] 

( THROUGH ; 

PERFORM procedure-name-1 [ I 54 ^.,( procedure-name-2] 
I HHUUGH ; 

\ integer 


ident ] f r ier } iimes 


PERFORM procedure-name-1 [ < ._.. > procedure-name-2] 

f I HHUUGH ) 


UNTLL condition 
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PERFORM procedure-name-1 


THRU 

THROUGH 


procedure-name-2] 




literal-1 

index-name-2 

identifier-2 


BY 


f literal-2 
\ identifier-3 


UNTIL condition-1 


AFTER 


index-name-3 \ 
identifier-4 j 


FROM 


literal-3 | 
index-name-4 > BY 
identifier-5 ' 


literal-4 ) 
identifier-6 f 


UNTIL condition-2 


R after 


f index-name-5) 
l identifier-7 j 


FROM 


literal-5 

index-name-6 

identifier-8 


BY 


literal-6 ) 
identifier-9 j 


UNTIL condition-3 




READ file-name RECORD [ INTO identifier] AT END 


imperative-statement 

READ file-name RECORD [ INTO identifier] 

[ MAJOR KEY IS data-name] INVALID KEY imperative-statement 


RELEASE record-name [ FROM identifier] 

RETURN file-name RECORD [ INTO identifier] AT END 


imperative-statement 

REWRITE record-name [ FROM identifier] 

[ INVALID KEY imperative-statement] 

SEARCH identifier-1 [ vARYING { } ] 


[AT END imperative-statement-1 ] 

... „ ( imperative-statement-2 \ 

WH EN condition-1 | NEXT SENTENCE j 

r • o ( imperative-statement-3 \ 1 

L WHEN condition-2 ) NEXT SENTENCE f J 
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SEARCH ALL identifier [AT END imperative-statement-1 ] 


WHEN condition 


imperative-statement-2 1 
NEXT SENTENCE J 


SEEK file-name RECORD [WITH KEY CONVERSION ! 

SET / index-name-1 [index-name-2] ... ) 
l identifier-1 [identifier-2] ... / 

{ index-name-3 \ 
identifier-3 > 
literal ) 


SET index-name-1 [index-name-2] ... 

/ UP BY ^ f identifier) 
l DOWN BY / 1 literal j 


SKJP |'! t ® ,al ] RECORDS ON file-name 

( data-name j 


SORT file-name-1 ON 


( DESCENDING ) 
1 ASCENDING / 


KEY data-name-1 [data-name-2] ... 


T / DESCENDING ) „ r _ w , 

L 0N (ASCENDING / KEYdata-name-3[data-name-4]. 

INPUT PROCEDURE IS section-name-1 

ft THRU 1 „ T 

1 I THROUGH I on-name-2 J 

USING file-name-2 


OUTPUT PROCEDURE IS section-name-3 
f THRU ' 

( THROUGH . 

GIVING file-name-3 


[{\ 


> section-name-4 


STOP 


literal 1 
RUN j 
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SUBTRACT 


f identifier-1) 

1" ( identifier-2 ) ~| 

l literal-1 j 

Ll literal-2 jj 


FROM identifier-3 


[ROUNDED] [identifier-4[ROUNDED] ] ... 
[ON SIZE ERROR imperative-statement] 


subtract f ; den, : ,i f r - 1 1 [] : dent : f r 2 11 

l literal—1 j L l literal-2 j J 

FROM / identifier- 3 \ 

( literal-3 ) 

GIVING identifier-4 [ ROUNDED ] 

[identifier-5 [ ROUNDED ] 1 ... 


[ON SIZE ERROR imperative-statement] 

SUBTRACT { jjlESmNmNG } identifi ^ 1 

identifier-2 [ ROUNDED ] [identifier-3 [ ROUNDED ] ] ... 
[ON SIZE ERROR imperative-statement]. 

TERMINATE ( report-name-! [report-name-2] ...l 


USE AFTER STANDARD ERROR PROCEDURE ON 

! file-name-1 [file-name-2] ... ^ 

INPUT / 

OUTPUT > 

INPUT-OUTPUT \ 

HI * 


(before) standard 

[ ( BEGINNING ) 1 

(AFTER f 

1 1 ENDING ) 1 


LABEL 


f PROCEDURE 

\ PROCEDURES 


1 

1 


ON 


! file-name-1 [file-name-2] 
INPUT 
OUTPUT 
INPUT-OUTPUT 
izQ 
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USE BEFORE REPORTING identifier-1 [identifier-2] ... 


USE FOR HASHING ON 


/ ALL \ 

I file-name-1 [file-name-2] ... f 


USE FOR DUPLICATE KEY ON 


f ALL 

1 file-name-1 [file-name-2] ... 


USE FOR KEY CONVERSION ON I ~~ 

- (. file-name-1 Lfile-name-2J 

WRITE record-name [ FROM identifier-11 


BEFORE ) 
AFTER j 


ADVANCING 


identifier-2 LINES 
integer LINES 
mnemonic-name 


f" AT / END-OF-PAGE 
L l EOP 


imperative-statement 


] 


WRITE record-name [ FROM identifier] 

[ INVALID KEY imperative-statement] 
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COBOL CONTROL CARD 


Parameters are used to select compilation options. All are optional and 
may be specified in any order. Each is separated from the other by a 
comma. The list may be enclosed in parentheses (as shown) or it may be 
separated from the word COBOL by a comma and terminated by a 
period. 

COBOL. [comments] 

COBOL (parameter-list) 


A (Blank Conversion) A 

B (Binary Output) absent 

B 

B = LGO 
B = fn 


B = 0 

BUF (Buffer Size) BUF 

C (Copy Default) C 

D (Execution Abort) D 

E (EDITLIB) E = fn 

F (Computational F 

Modification) 

H (BCOMMON) H 


treats leading blanks as zeros 


relocatable binary file on file 
LGO 

binary output on file fn 
suppress binary output 

selects buffer size by method 
of version 3.0 COBOL 

uses version 3.0 COPY mode; 
to copy from library, FROM 
LIBRARY must be specified 

prevents execution of program 
if E diagnostic occurs 

using EDITLIB, add object 
code to system library 

interprets COMPUTATIONAL 
items as COMPUTATIONAL-1 

BCOMMON replaces blank 
common as buffer area 


I (Source Input) ‘absent 

I INPUT assumed 

I = INPUT 

I = fn source input on file fn 
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L (List) 

absent \ 

L J 

normal listing on OUTPUT 


LX 

extended diagnostics 


LR 

cross reference pointers 


LC 

copy from library 


LO 

object code in octal 


LM 

data map 


L = fn 

output on file fn 


L = 0 

suppress list output 

N (Non-ANSI 
Diagnostic) 

N 

diagnoses any non-ANSI 
feature 

0 (Compiler Options) 

O 

ii 

X 

extended diagnostics 


0= R 

cross reference pointers 


0 = 0 

object code in octal 


o 

ii 

o 

copy from library 


0 = M 

data map 

OB (Overlay Binary) 

OB \ 

OB = LG02 / 

binary output on LG02 


OB = fn 

binary output from overlay 
segments put on file fn 

OL (Optimizer Level) 

o 

ii 

_i 

O 

no optimizations 


OL = 1 

program flow optimization 


OL = 2 

machine instruction optimi¬ 
zation 


OL = 3 1 
absent > 

OL ) 

all optimizations 
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P (ANSI execution) 

P 

allows non-ANSI reserved 
words; selects N parameter 

S (Source Library) 

absent ) 

S 

S = COLIB ; 

source library from file 
COLIB 


S = fn 

from file fn 

SUB (Subcompile) 

SUB 

suppresses all data division 
binary output except from 
working and constant storage 

T (Tape Sort) 

T 

sort requests tape sort 

U (ASCII Collating) 

U 

use ASCI 1 collating sequence 

W (Initialize Overlays) 

W 

uses version 3.0 method of 
treating independent seg¬ 
ments: they are available in 
last used state 

Z (3.0 Compatibility) 

z 

provides compatibility with 
version 3.0 COBOL: selects 
parameters BUF, C, and W 
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COBOL CODING FORMAT 


Column 

Element 

1 -6 

Sequence number 

7 

Hyphen, slash, or asterisk 

8 

Division name 

Section name 

Paragraph name 

File description 

Record description level number 

12 

Record description data name 

First sentence of a paragraph 

File name 

Continuation of a data description or a sentence 

73-80 

Identification (optional) 


Sequence number Optional, checked by the processor if used 

Hyphen Indicates continuation of a word or literal from 

the preceding line 


Slash or asterisk Remainder of line is treated as comment and 

skips to new page 


Division name Terminated by period, remainder of line is blank 

Section name Followed by optional priority number, termi¬ 

nated by period, remainder is blank 


Paragraph name Terminated by period, and followed by at least 
one blank before text begins 


File Description FD or SD followed by file name and at least one 

blank 


Record Description Level number followed by at least one blank and 
data name 

First Sentence Begins in or after column 12. Spaces may be used 

freely to avoid splitting a word or literal. If a 
word or literal is split, a hyphen must appear in 
column 7 of the next line. 
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COBOL COMPILATION 



COBOL source deck 



















COBOL RESERVED WORD LIST 


indicates word not implemented. 

ABOUT 

ACCEPT 

ACCESS 

ACTUAL 

ADD 

“ADDRESS 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALPHANUMERIC 

ALTER 

ALTERNATE 

AN 

AND 

“ANSIB 

“APPLY 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

AUTHOR 


“BCD 

BEFORE 

BEGINNING 

BEGINNING-FILE-LABEL 

BEGINNING-TAPE-LABEL 

BINARY 

“BITS 

BLANK 

BLOCK 

BLOCKS 

BWZ 

BY 


CALL 

CANCEL 

“CD 

CF 

CH 

CHARACTER 


CHARACTERS 

CHECK 

CLASS 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

COLUMN 

COMMA 

COMMON-STORAGE 

COMP 

COMP-1 

COMP-2 

COMPASS 

COMPUTATIONAL 

COMPUTATIONAL-1 

COMPUTATIONAL-2 

COMPUTE 

CONFIGURATION 

CONSOLE 

CONSTANT 

CONTAINS 

CONTROL 

CONTROLS 

CONVERSION 

COPY 

CORR 

CORRESPONDING 

“COUNT 

CREATE 

CURRENCY 


DATA 

DATA-PADDING 

DATE 

DATE-COMPILED 

DATE-WRITTEN 

DAY 

DE 

DECIMAL 

DECIMAL-POINT 

DECLARATIVES 

DELETE 

“DELIMITER 

“DELIMITED 
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DENSITY 

DEPENDING 

■"DEPTH 

DESCENDING 

"DESTINATION 

DETAIL 

DIGIT 

DIGITS 

DIRECT 

"DISABLE 

DISPLAY 

DIVIDE 

DIVIDED 

DIVISION 

DOLLAR 

DOWN 

DUPLICATE 


EBCDIC 

EDITION-NUMBER 

ELSE 

"EMI 

"ENABLE 

END 

END-OF-PAGE 

ENDING 

ENDING-FILE-LABEL 

ENDING-TAPE-LABEL 

ENDING-TAPE-LABEL-IDENTIFIER 

ENTER 

ENTRY 

ENVIRONMENT 

EOP 

EQ 

EQUAL 

EQUALS 

ERROR 

ERROR-CODE 

"ESI 

"ETI 

EVERY 

EXAMINE 

EXCEEDS 

EXIT 

EXPONENTIATED 

EXTEND 

"EXTERNAL 


FD 

FILE 

FILE-CONTROL 

FILE-LABEL 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

"FIND 

FIRST 

FLOAT 

FOOTING 

FOR 

"FORMAT 

"FORTRAN 

FORTRAN-R 

FORTRAN-X 

FROM 


GENERATE 

GIVING 

GO 

GQ 

GR 

GREATER 

GREATER-EQUAL 

GROUP 


"HASHED 

HASHED-VALUE 

HASHING 

HEADING 

HIGH 

HIGH-VALUE 

HIGH-VALUES 

"HOLD 

HYPER 


ID 

IDENTIFICATION 

IF 

IN 

INCLUDE 

INDEX 
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INDEX-BLOCK 

INDEX-LEVEL 

INDEX-LEVELS 

INDEX-PADDING 

INDEXED 

INDICATE 

INITIATE 

INPUT 

INPUT-OUTPUT 

INSTALLATION 

INTO 

INVALID 

1-0 

l-O-CONTROL 

IS 


JUST 

JUSTIFIED 


KEY 

KEYS 


LABEL 

LAST 

LEADING 

LEAVING 

LEFT 

LESS 

LESS-EQUAL 

LIBRARY 

LIMIT 

LIMITS 

LINAGE 

LINAGE-COUNTER 

LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LOCATION 

LOCK 

LOW 

LOW-VALUE 

LOW-VALUES 

*LOWER-BOUND 


*LOWER-BOUNDS 

LQ 

LS 


MAJOR 

MEMORY 

^MESSAGE 

MINUS 

MODE 

MODULES 

MOVE 

MULTIPLE 

MULTIPLIED 

MULTIPLY 


NEGATIVE 

NEXT 

NGR 

NLS 

NO 

NOT 

NOTE 

NQ 

NUMBER 

NUMERIC 


OBJECT-COMPUTER 

OCCURS 

OF 

OFF 

OH 

OMITTED 

ON 

OPEN 

OPTIONAL 

OR 

ORGANIZATION 

OTHERWISE 

OUTPUT 

OV 

OVERFLOW 

*OWNER 
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PAGE 

PAGE-COUNTER 

PERCENT 

PERFORM 

PF 

PH 

PIC 

PICTURE 

PLACES 

PLUS 

POINT 

POSITION 

POSITIVE 

"PREPARED 

"PRINT-SWITCH 

PRIORITY 

PROCEDURE 

PROCEDURES 

PROCEED 

"PROCESS 

PROCESSING 

PROGRAM 

PROGRAM-ID 

PROTECT 


REMAINDER 

REMARKS 

RENAMES 

RENAMING 

REPLACING 

REPORT 

REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 

RETENTION 

RETENTION-CYCLE 

RETURN 

REVERSED 

REWIND 

REWRITE 

RF 

RH 

RIGHT 

ROUNDED 

RUN 


*SA 


*QUEUE 

SAME 

SD 

QUOTE 

SEARCH 

QUOTES 

SECONDARY-STORAGE 

SECTION 

SECURITY 

RANDOM 

SEEK 

RANGE 

SEGMENT-LIMIT 

RD 

SELECT 

READ 

SELECTED 

■RECEIVE 

"SEND 

RECORD 

SENTENCE 

RECORD-BLOCK 

SEQUENCED 

RECORD-MARK 

SEQUENTIAL 

RECORDING 

SET 

RECORDS 

SIGN 

REDEFINES 

SIGNED 

REEL 

SIZE 

REEL-NUMBER 

SKIP 

■REFERENCES 

SORT 

RELATIVE 

SOURCE 

RELEASE 

SOURCE-COMPUTER 
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SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STATUS 

STOP 

^STRING 

*SUB-QUEUE-1 

*SUB-QUEUE-2 

*SUB-QUEUE-3 

SUBTRACT 

SUM 

^SUPERVISOR 

SUPPRESS 

SWITCH 

SYMBOLIC 

SYNC 

SYNCHRONIZED 


*TABLE 

TALLY 

TALLYING 

TAPE 

TERMINAL 

TERMINATE 

*TEST 

*TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIMES 


TO 

TODAYS-DATE 

TYPE 


UNEQUAL 

UNIT 

*UNSTRING 

UNTIL 

UP 

UPON 

*UPPER-BOUND 
* UPPER-BOUNDS 

USAGE 

USE 

USING 


VALUE 

VALUES 

VARYING 

^VOLUME 


WHEN 

WITH 

*WORDS 

WORKING-STORAGE 

WRITE 


ZERO 

ZEROES 

ZEROS 
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64-CHARACTER SET COLLATING SEQUENCE 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

00 

blank 

55 

no punch 

no punch 

01 

<* 

74 

8-5 

12-8-4 

02 

% 

63 

8-6 

0-8-4 

03 

[* 

61 

8-7 

8-5 

04 


65 

0-8-5 

0-8-5 

05 

=* 

60 

0-8-6 

8-3 

06 

A* 

67 

0-8-7 

12 

07 

t * 

70 

11-8-5 

8-4 

08 


71 

11-8-6 

0-8-7 

09 

> 

73 

11-8-7 

0-8-6 

10 

>* 

75 

12-8-5 

0-8-2 

11 

->* 

76 

12-8-6 

11-8-7 

12 


57 

12-8-3 

12-8-3 

13 

) 

52 

12-8-4 

11-8-5 

14 

; 

77 

12-8-7 

11-8-6 

15 

+ 

45 

12 

12-8-6 

16 

$ 

53 

11-8-3 

11-8-3 

17 

* 

47 

11-8-4 

11-8-4 

18 

- 

46 

11 

11 

19 

/ 

50 

0-1 

0-1 

20 

, 

56 

0-8-3 

0-8-3 

21 

( 

51 

0-8-4 

12-8-5 

22 

= 

54 

8-3 

8-6 

23 


64 

8-4 

8-7 

24 

< 

72 

12-0 

12-8-2 

25 

A 

01 

12-1 

12-1 

26 

B 

02 

12-2 

12-2 

27 

C 

03 

12-3 

12-3 

28 

D 

04 

12-4 

12-4 

29 

E 

05 

12-5 

12-5 

30 

F 

06 

12-6 

12-6 

31 

G 

07 

12-7 

12-7 


*Not in COBOL character set; may be present in data 
tCOBOL quote character (") is output on printer as # 
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64-CHARACTER SET COLLATING SEQUENCE (continued) 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

H 

10 

12-8 

12-8 

33 

1 

11 

12-9 

12-9 

34 

V 

66 

11-0 

11-8-2 

35 

J 

12 

11-1 

11-1 

36 

K 

13 

11-2 

11-2 

37 

L 

14 

11-3 

11-3 

38 

M 

15 

11-4 

11-4 

39 

N 

16 

11-5 

11-5 

40 

0 

17 

11-6 

11-6 

41 

P 

20 

11-7 

11-7 

42 

Q 

21 

11-8 

11-8 

43 

R 

22 

11-9 

11-9 

44 

]tt 

62 

0-8-2 

12-8-7 

45 

S 

23 

0-2 

0-2 

46 

T 

24 

0-3 

0-3 

47 

U 

25 

0-4 

0-4 

48 

V 

26 

0-5 

0-5 

49 

w 

27 

0-6 

0-6 

50 

X 

30 

0-7 

0-7 

51 

Y 

31 

0-8 

0-8 

52 

z 

32 

0-9 

0-9 

53 

:* 

00 

8-2 

8-2 

54 

0 

33 

0 

0 

55 

1 

34 

1 

1 

56 

2 

35 

2 

2 

57 

3 

36 

3 

3 

58 

4 

37 

4 

4 

59 

5 

40 

5 

5 

60 

6 

41 

6 

6 

61 

7 

42 

7 

7 

62 

8 

43 

8 

8 

63 

9 

44 

9 

9 


* Not in COBOL character set 
ttCOBOL record mark 
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ASCII COLLATING SEQUENCE 


Collating 

Sequence 

Character 

Display 

Code 

Hollerith Punch 

(026) (029) 

00 

blank 

55 

no punch 

no punch 

01 

!* 

62 

0-8-2 

12-8-7 

02 

" 

64 

8-4 

8-7 

03 

# 

60 

0-8-6 

8-3 

04 

$ 

53 

11-8-3 

11-8-3 

05 

% 

63 

8-6 

0-8-4 

06 

& 

67 

0-8-7 

12 

07 

' 

61 

8-7 

8-5 

08 

( 

51 

0-8-4 

12-8-5 

09 

) 

52 

12-8-4 

11-8-5 

10 

* 

47 

11-8-4 

11-8-4 

11 

+ 

45 

12 

12-8-6 

12 

, 

56 

0-8-3 

0-8-3 

13 

- 

46 

11 

11 

14 


57 

12-8-3 

12-8-3 

15 

/ 

50 

0-1 

0-1 

16 

0 

33 

0 

0 

17 

1 

34 

1 

1 

18 

2 

35 

2 

2 

19 

3 

36 

3 

3 

20 

4 

37 

4 

4 

21 

5 

40 

5 

5 

22 

6 

41 

6 

6 

23 

7 

42 

7 

7 

24 

8 

43 

8 

8 

25 

9 

44 

9 

9 

26 


00 

8-2 

8-2 

27 

; 

77 

12-8-7 

11-8-6 

28 

< 

74 

8-5 

12-8-4 

29 

= 

54 

8-3 

8-6 

30 

> 

73 

11-8-7 

0-8-6 

31 

? 

71 

11-8-6 

0-8-7 
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ASCII COLLATING SEQUENCE (continued) 


Collating 


Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

@ 

70 

11-8-5 

8-4 

33 

A 

01 

12-1 

12-1 

34 

B 

02 

12-2 

12-2 

35 

C 

03 

12-3 

12-3 

36 

D 

04 

12-4 

12-4 

37 

E 

05 

12-5 

12-5 

38 

F 

06 

12-6 

12-6 

39 

G 

07 

12-7 

12-7 

40 

H 

10 

12-8 

12-8 

41 

1 

11 

12-9 

12-9 

42 

J 

12 

11-1 

11-1 

43 

K 

13 

11-2 

11-2 

44 

L 

14 

11-3 

11-3 

45 

M 

15 

11-4 

11-4 

46 

N 

16 

11-5 

11-5 

47 

0 

17 

11-6 

11-6 

48 

P 

20 

11-7 

11-7 

49 

Q 

21 

11-8 

11-8 

50 

R 

22 

11-9 

11-9 

51 

S 

23 

0-2 

0-2 

52 

T 

24 

0-3 

0-3 

53 

U 

25 

0-4 

0-4 

54 

V 

26 

0-5 

0-5 

55 

W 

27 

0-6 

0-6 

56 

X 

30 

0-7 

0-7 

57 

Y 

31 

0-8 

0-8 

58 

Z 

32 

0-9 

0-9 

59 

[ 

72 

12-0 or 

12-8-2 

60 

/ 

75 

12-8-5 

0-8-2 

61 

] 

66 

11-0 or 

11-8-2 

62 


76 

12-8-6 

11-8-7 

63 

- 

65 

0-8-5 

0-8-5 
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63-CHARACTER SET COLLATING SEQUENCE 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

00 

blank 

55 

no punch 

no punch 

01 

<* 

74 

8-5 

12-8-4 

02 

[* 

61 

8-7 

0-8-4 

03 

-»* 

65 

0-8-5 

0-8-5 

04 

= * 

60 

0-8-6 

8-3 

05 

A* 

67 

0-8-7 

12 

06 

t* 

70 

11-8-5 

8-4 

07 

1* 

71 

11-8-6 

0-8-7 

08 

> 

73 

11-8-7 

0-8-6 

09 

>* 

75 

12-8-5 

0-8-2 

10 

i* 

76 

12-8-6 

11-8-7 

11 


57 

12-8-3 

12-8-3 

12 

) 

52 

12-8-4 

11-8-5 

13 


77 

12-8-7 

11-8-6 

14 

+ 

45 

12 

12-8-6 

15 

$ 

53 

11-8-3 

11-8-3 

16 

* 

47 

11-8-4 

11-8-4 

17 

- 

46 

11 

11 

18 

/ 

50 

0-1 

0-1 

19 

, 

56 

0-8-3 

0-8-3 

20 

( 

51 

0-8-4 

12-8-5 

21 

= 

54 

8-3 

8-6 

22 

*t 

64 

8-4 

8-7 

23 

< 

72 

12-0 

12-8-2 

24 

A 

01 

12-1 

12-1 

25 

B 

02 

12-2 

12-2 

26 

C 

03 

12-3 

12-3 

27 

D 

04 

12-4 

12-4 

28 

E 

05 

12-5 

12-5 

29 

F 

06 

12-6 

12-6 

30 

G 

07 

12-7 

12-7 

31 

H 

10 

12-8 

12-8 


*Not in COBOL character set; may be present in data 
tCOBOL quote character (") is output on printer as + 


c 

« 

« 

c 

« 
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63-CHARACTER SET COLLATING SEQUENCE (continued) 


Collating 

COBOL 

Display 

Hollerith Punch 

Sequence 

Character 

Code 

(026) 

(029) 

32 

1 

11 

12-9 

12-9 

33 

V 

66 

11-0 

11-8-2 

34 

J 

12 

11-1 

11-1 

35 

K 

13 

11-2 

11-2 

36 

L 

14 

11-3 

11-3 

37 

M 

15 

11-4 

11-4 

38 

N 

16 

11-5 

11-5 

39 

0 

17 

11-6 

11-6 

40 

P 

20 

11-7 

11-7 

41 

Q 

50 

11-8 

11-8 

42 

R 

22 

11-9 

11-9 

43 

]tt 

62 

0-8-2 

12-8-7 

44 

S 

23 

0-2 

0-2 

45 

T 

24 

0-3 

0-3 

46 

U 

25 

0-4 

0-4 

47 

V 

26 

0-5 

0-5 

48 

W 

27 

0-6 

0-6 

49 

X 

30 

0-7 

0-7 

50 

Y 

31 

0-8 

0-8 

51 

Z 

32 

0-9 

0-9 

52 

:* 

63 

8-2 

8-2 

53 

0 

33 

0 

0 

54 

1 

34 

1 

1 

55 

2 

35 

2 

2 

56 

3 

36 

3 

3 

57 

4 

37 

4 

4 

58 

5 

40 

5 

5 

59 

6 

41 

6 

6 

60 

7 

42 

7 

7 

61 

8 

43 

8 

8 

62 

9 

4 

9 

9 


*Not in COBOL character set 
ttCOBOL record mark 
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